home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 124 / 124.d81 / geos to seq (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  139 lines
  1. 0 ifpeek(49153)=149thenprint"[147]":goto7:    rem:see line 5000
  2. 1 poke53280,0:poke53281,0:printchr$(14):print"[147]"
  3. 2 print"     [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  4. 3 print"     [171] [195][207][206][214][197][210][212] [199]eo[212][197][216][212] [212][207][160][211][197][209].[198][201][204][197] [179]"
  5. 4 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":forn=1to11:print:next
  6. 6 ifa=0thena=1:load"conversion code",8,1
  7. 7 poke52,96:poke56,96:f$="temp01,s":y=52992:forx=1tolen(f$):v=asc(mid$(f$,x,1))
  8. 8 pokey,v:y=y+1:next:goto190
  9. 9 print"[206]ame for eventual converted file":print"(max.10 characters)":inputc$
  10. 10 iflen(c$)>10thenc$=left$(c$,10)
  11. 11 g$=c$:c$=c$+",s,w"
  12. 12 y=53008:forx=1tolen(c$):v=asc(mid$(c$,x,1)):pokey,v:y=y+1:next:poke2,len(c$)
  13. 13 print"[196]o you wish to use drive 9 when
  14. 14 [133]"writing the converted file (y/n)";s$
  15. 15 [139]s$[178]"y"[167]dv[178]9:[151]49533,9
  16. 16 [139]s$[179][177]"y"[167]dv[178]8:[151]49533,8
  17. 17 [139]dv[178]9[167][153]"(NULL)lease place a disk in drive 9 and
  18. 18 ifdv=9thenprint"type any key to continue":poke198,0:wait198,1
  19. 20 goto305
  20. 190 print"[147][208]lace source ([199][197][207][211]) disk in drive 8"
  21. 200 print"[212]ype return[146] when ready..."
  22. 210 geta$:ifa$<>chr$(13)thengosub970:goto210
  23. 220 poke53280,0
  24. 292 gosub680
  25. 294 forx=56328to56331:pokex,0:next
  26. 300 poke56328,1
  27. 301 f$="":forf=1tolen(n$)
  28. 302 ifasc(mid$(n$,f,1))>192thenh$=chr$(asc(mid$(n$,f,1))-96)
  29. 303 ifasc(mid$(n$,f,1))<192thenh$=chr$(asc(mid$(n$,f,1)))
  30. 304 f$=f$+h$:next:print"[147]":goto9
  31. 305 iff$=g$anddv=8thenprint"[147][196]ifferent name required for
  32. 306 [139]f$[178]g$[175]dv[178]8[167][153]"converted file. (NULL)ry again!":[153]:[137]9
  33. 308 f$[178]f$[170]",u,r"
  34. 310 [159]15,8,15:[159]8,8,0,f$:[132]15,en,eb$,et,es
  35. 320 [139]en[179][177]0[167][160]8:[160]15:[153]"load";[166]20[171][195](eb$)[173]2)eb$:n$[178]"":[137]290
  36. 322 [153]"load"[166]16[171][195](f$)[173]2)"loading "[170]f$
  37. 324 s$[178]"str$(NULL)right$(NULL)valclose(NULL)val(NULL)(NULL)closepeek(NULL)(NULL)(NULL) - str$(NULL)close(NULL)(NULL)(NULL)closestr$right$(NULL)(NULL)(NULL)(NULL)peek
  38. 325 print""spc(20-len(s$)/2)s$
  39. 329 d=30:dimr(d,1):fort=1tod
  40. 330 get#8,r$:ifr$=""thentt=t:t=d:close8:close15:goto336
  41. 331 r(t,0)=asc(r$)
  42. 332 get#8,r$:ifr$=""thenr$=chr$(0)
  43. 333 r(t,1)=asc(r$)
  44. 334 next
  45. 336 rem:
  46. 340 s$="writing new pages":print""spc(20-len(s$)/2)s$:t2=1
  47. 370 forf=1tott-1:t1$="temp":t2$=right$(str$(t2),len(str$(t2))-1)
  48. 371 iflen(t2$)=1thent2$="0"+t2$
  49. 372 t3$=t1$+t2$
  50. 373 open4,8,4,t3$+",s,w":close4:t2=t2+1:ift2=ttthen376
  51. 374 next
  52. 376 s$="giving them directions":print""spc(20-len(s$)/2)s$
  53. 377 open15,8,15,"i0":open2,8,2,"#":t=18:s=1:n=0:t2=1
  54. 378 forf=1tott-1:t1$="temp":t2$=right$(str$(t2),len(str$(t2))-1)
  55. 379 iflen(t2$)=1thent2$="0"+t2$
  56. 380 t3$=t1$+t2$
  57. 382 print#15,"u1:2 0"+str$(t)+str$(s)
  58. 384 get#2,a$:tn=asc(a$+chr$(0)):get#2,a$:sn=asc(a$+chr$(0))
  59. 385 ifn>7thenn=0:t=tn:s=sn:goto382
  60. 386 print#15,"b-p:2,"+str$(n*32+2)
  61. 388 get#2,a$:ft=asc(a$+chr$(0)):ifft<>129thenn=n+1:goto385
  62. 390 print#15,"b-p:2,"+str$(n*32+5):d$=""
  63. 392 get#2,a$:ifa$<>chr$(160)andlen(d$)<16thend$=d$+a$:goto392
  64. 393 ifd$<>t3$thenn=n+1:goto385
  65. 394 ifd$=t3$thenprint#15,"b-p:2,"+str$(n*32+3):print#2,chr$(r(f,0));
  66. 395 print#15,"u2";2;0;t;s
  67. 396 ifd$=t3$thenprint#15,"b-p:2,"+str$(n*32+4):print#2,chr$(r(f,1));
  68. 397 print#15,"u2";2;0;t;s
  69. 398 n=n+1:t2=t2+1:ift2=ttthenclose2:close15:goto403
  70. 402 next
  71. 403 print:s$="[212]ranslating [199][197][207][211]":printspc(20-len(s$)/2)s$:print
  72. 405 poke38,8:sys49152
  73. 406 gosub477
  74. 410 h=peek(56331):y=h:gosub450:h=p
  75. 411 m=peek(56330):y=m:gosub450:m=p
  76. 412 s=peek(56329):y=s:gosub450:s=p
  77. 413 t=peek(56328):y=t:gosub450:t=p
  78. 420 print"[195]onversion completed in"
  79. 430 printh" hours"
  80. 431 printm" minutes
  81. 432 z$[178][201]([196](t),[195]([196](t))[171]1)
  82. 433 s$[178][196](s)[170]"."[170]z$:[153]s$" seconds"
  83. 434 [153]"(NULL)our chr$val(NULL)(NULL) source disk will require
  84. 435 print"validation once you return to the
  85. 436 [153]"chr$val(NULL)(NULL) environment."
  86. 440 [128]:[143] dmh 1994
  87. 450 p[178][181](y[173]16)[172]10[170](y[175]15):[142]
  88. 477 [159]15,8,15,"i0":[159]2,8,2,"#":t[178]18:s[178]1:n[178]0:t2[178]1
  89. 478 [129]f[178]1[164]tt[171]1:t1$[178]"temp":t2$[178][201]([196](t2),[195]([196](t2))[171]1)
  90. 479 [139][195](t2$)[178]1[167]t2$[178]"0"[170]t2$
  91. 480 t3$[178]t1$[170]t2$
  92. 482 [152]15,"u1:2 0"[170][196](t)[170][196](s)
  93. 484 [161]#2,a$:tn[178][198](a$[170][199](0)):[161]#2,a$:sn[178][198](a$[170][199](0))
  94. 485 [139]n[177]7[167]n[178]0:t[178]tn:s[178]sn:[137]482
  95. 486 [152]15,"b-p:2,"[170][196](n[172]32[170]2)
  96. 488 [161]#2,a$:ft[178][198](a$[170][199](0)):[139]ft[179][177]129[167]n[178]n[170]1:[137]485
  97. 490 [152]15,"b-p:2,"[170][196](n[172]32[170]5):d$[178]""
  98. 492 [161]#2,a$:[139]a$[179][177][199](160)[175][195](d$)[179]16[167]d$[178]d$[170]a$:[137]492
  99. 493 [139]d$[179][177]t3$[167]n[178]n[170]1:[137]485
  100. 494 [139]d$[178]t3$[167][152]15,"b-p:2,"[170][196](n[172]32[170]2):[152]2,[199](0);
  101. 495 [152]15,"u2";2;0;t;s
  102. 498 n[178]n[170]1:t2[178]t2[170]1:[139]t2[178]tt[167][160]2:[160]15:[142]
  103. 499 [130]
  104. 680 [159]15,8,15,"i0":[159]2,8,2,"#":x[178]0:m[178]0:t[178]18:s[178]1:n[178]0
  105. 690 [153]"load(NULL)he (NULL)(NULL)(NULL) files on this disk are:"
  106. 700 [152]15,"u1:2 0"[170][196](t)[170][196](s)
  107. 710 [161]#2,a$:tn[178][198](a$[170][199](0)):[161]#2,a$:sn[178][198](a$[170][199](0))
  108. 720 [152]15,"b-p:2,"[170][196](n[172]32[170]2)
  109. 730 [161]#2,a$:ft[178][198](a$[170][199](0)):[139]ft[179][177]131[175]ft[179][177]195[167]n[178]n[170]1:[137]810
  110. 770 [152]15,"b-p:2,"[170][196](n[172]32[170]5):d$[178]""
  111. 780 [161]#2,a$:[139]a$[179][177][199](160)[175][195](d$)[179]16[167]d$[178]d$[170]a$:[137]780
  112. 790 x[178]x[170]1:m[178]m[170]1:[139]m[178]16[167]m[178]0:[137]840
  113. 800 [153]"   "[170][199](34)[170]d$[170][199](34):n[178]n[170]1
  114. 810 [139]n[179]8[167]720
  115. 820 n[178]0:t[178]tn:s[178]sn:[139]t[179][177]0[167]700
  116. 830 [139]t[178]0[167]860
  117. 840 [153]"        type returnwait to see more"
  118. 850 [153]"    type _ and then returnwait to abort"
  119. 860 [139]x[178]0[167][153]"        none":[137]930
  120. 870 [153]"        place cursor next to name"
  121. 880 [153]"   and type returnwait to load":[133]n$
  122. 890 [139]n$[178]"_"[167]n$[178]"":[137]920
  123. 900 [139]n$[179][177]""[167][160]2:[160]15:[142]
  124. 910 [139]t[179][177]0[167]690
  125. 920 [153]"load";
  126. 930 [160]2:[160]15:[153]"    place another chr$val(NULL)(NULL) disk in drive"
  127. 940 [153]"       type returnwait when ready or"
  128. 941 [153]"    type qwait to quit program"
  129. 950 [161]a$:[139]a$[179][177][199](13)[175]a$[179][177]"q"[167][141]970:[137]950
  130. 955 [139]a$[178]"q"[167][128]
  131. 960 [151]53280,0:[137]680
  132. 970 a[178]a[170]1:[139]a[177]10[167][151]53280,2
  133. 980 [139]a[177]20[167][151]53280,0:a[178]0
  134. 990 [142]
  135. 2000 [159]15,9,15:[132]15,a,b$,c,d:[153]a,b$,c,d:[160]15
  136. 5000 [143]:programmed by doreen horne for
  137. 5001 [143]:the public domain.
  138. 5002 [143]:brisbane australia 1994
  139.